BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DO
Bài 1: SGK 60
Nhập chương trình :
uses crt;
var N,I:integer;
begin
clrscr;
write (Nhap so N='); readln(N);
writeln;
writeln('Bang nhan',N);
writeln;
for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);
readln
end
Câu hỏi ôn tập:
a. Sau khi nhập đoạn chương trình bài 1. Cho biết ý nghĩa từng câu lệnh trong chương trình .
b. Nếu giá trị cuối trong lệnh For...do sủa cho 100.thì kết quả như thế nào ?
c. Nếu giá trị đầu và cuối trong lệnh For... do sủa là -10 và 100. thì kết quả như thế nào?
b) sẽ trờ thành bảng nhân N:có các nhân tử từ 1 đến 100
c)
Nhân từ 10 đến 100
uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
a) tính tổng các số chẵn từ 1 đến 50
b)
(3): lệnh viết kq của ct trên.
(4):lệnh in ra màn hình kq của bài toán.
(5):lệnh kết thúc ct.
a) Tính tổng các số chẵn từ 1 đến 50
b) (3): Cộng các số chẵn trong khoảng từ 1 đến 50
(4): Xuất tổng
(5): Lệnh chờ đợi chương trình xử lý và chạy
Tìm và sửa lỗi trong chương trình pascal sau:
Uses crt;
Var i, n, t : integer;
Begin
clrscr;
write('Nhap so n = '); readln(n);
i := l; t := 0;
while i <= n do
begin
t := t + i;
i := i + l;
write('Tong = ', t);
Readln;
end.
Uses crt;
Var i, n, t : integer;
Begin
clrscr;
write('Nhap so n = '); readln(n);
i := l; t := 0; | sửa: i:=1; t:=0;
while i <= n do
begin
t := t + i;
i := i + l; | Sửa: i:=i+1;
-> Thiếu. Thêm: End;
write('Tong = ', t);
Readln;
end.
Đọc và sửa sai các lỗi trong chương trình Pascal sau (1điểm)
Brogram Bai 1;
Uses crt ;
Var x, y = integer
Begin
Write(‘nhap vao gia tri cua x : ‘, ‘x=’) ;
Readln(x);
Write(‘nhap vao gia tri cua y : ‘, ‘y=’) ;
Readln();
Write(‘tong cua hai so x va y la:’, x+y) ;
Readln
end
Program Bai1;
uses crt;
var x,y:integer;
begin
write('nhap vao gia tri cua x:');
readln(x);
write('nhap vao gia tri cua y:');
readln(y);
write('Tong cua hai so x va y la: ',x+y);
readln;
end.
Hãy cho biết giá trị của S sau khi thực hiện xong đoạn lệnh, nếu nhập n = 6:
Write('Nhap n = '); Readln(n);
S:=0;
For i:= 1 To n Do S:= S + 2*i;
A. 21
B. 42
C. 6
D. 0
Bạn Tuấn viết chương trình như sau:
program Tinh toan
uses crt;
var
x, y : integer;
tb = real;
thongbao : integer;
const a := 2;
begin
clrscr;
thongbao := ‘Trung binh cong cua hai so x va y la: ‘;
write(‘Nhap gai tri cho x = ‘); readln(x);
write(‘Nhap gia tri cho y = ‘); readln(y);
tb = (x+y)/a;
writeln(thongbao, tb:2:1);
readln;
end.
a. Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng.
b. Hãy phân biệt tên biến, tên hằng trong chương trình trên.
A)
program Tinh_toan;
uses crt;
var x,y: integer;
tb: real;
thongbao: string;
const a = 2;
begin
clrscr;
thongbao:= 'Trung binh cong cua hai so x va y la: ';
write('Nhap gia tri cho x= ');readln(x);
write('Nhap gia tri cho y= ');readln(y);
tb:= (x + y) / a;
writeln(thongbao, tb:2:1);
readln
end.
B)
- Các tên biến là: x, y, tb, thongbao
_ Tên hằng là: a
cho chương trình sau hãy sắp xếp lại cho đúng
var a,b,c:integer;
c:=a+b;
begin
write('nhap gia tri a);
readln(b);
program tong hai so;
end.
write('nhap so b')
readln(a);
clrscr;
readln;
uses crt;
writeln(tong cua hai so vua nhap la:',c)
bạn nào biết thì giúp mình với mai mình kt rồi
program tong hai so;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('nhap gia tri a);readln(a);
write('nhap so b'); readln(b);
c:=a+b;
writeln(tong cua hai so vua nhap la:',c);
readln;
end.
var a,b,c:integer;
begin
write('nhap a);readln(a);
write('nhap b'); readln(b);
c:=a+b;
writeln(tong cua hai so la:',c);
readln;
end.
Đọc và sửa sai các lỗi trong chương trình Pascal sau
Brogram Bai 1;
Uses crt ;
Var x, y = integer
Begin
Write(‘nhap vao gia tri cua x : ‘, ‘x=’) ;
Readln(x);
Write(‘nhap vao gia tri cua y : ‘, ‘y=’) ;
Readln();
Write(‘tong cua hai so x va y la:’, x+y) ;
Readln
end
Program Bai1;
uses crt;
var x,y:integer;
begin
write('nhap vao gia tri cua x:');
readln(x);
write('nhap vao gia tri cua y:');
readln(y);
write('Tong cua hai so x va y la: ',x+y);
readln;
end.
Em hãy hoàn thành đoạn chương trình nhập chiều cao của N bạn trong lớp bằng cách sắp xếp các câu lệnh sau theo đúng thứ tự (1) readln(N); (2)write('nhap chieu cao cua tung ban tinh theo m'); (3)write('hay nhap so hoc sinh trong lop :'); (4)begin (5)end; (6)for i:=1 to N do (7)read (a[i]); (8)write (a'[',i,']=') Giúp tôi với
(2) write(‘hay nhap so hoc sinh trong lop :’);
(1) readln(N);
(3) write(‘nhap chieu cao cua tung ban tinh theo m’);
(6) for i:=1 to N do
(4) begin
(7) read (a[I]);
(8) write (a’[‘,i,’]=')
(5) end;
